-- card: 2971 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2664
-- name: 


-- part 1 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=5 top=97 right=264 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 3 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=95 top=97 right=264 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 4 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=162 top=97 right=264 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 5 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=229 top=97 right=264 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 6 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=296 top=97 right=264 bottom=364
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 7 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=363 top=97 right=264 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 8 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=431 top=97 right=264 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=441 top=277 right=320 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Recalc
----- HyperTalk script -----
on mouseUp
  -- Init variables
  set cursor to 4    --put up watch cursor to indicate waiting
  set lockscreen to true  --so only final change is displayed (faster)
  put 5 into numberOfRows
  put 7 into numberOfColumns

  -- put 0s in total COLUMN at right
  repeat with row = 2 to numberOfRows
    put 0 into line row of card field numberOfColumns
  end repeat

  --put 0s in total ROW on bottom
  repeat with col = 2 to numberOfColumns+1
    put 0 into line numberOfRows of card field col
  end repeat

  -- Calculation of subtotals
  repeat with row = 2 to numberOfRows-1  --add all entries of one row
    repeat with col = 2 to numberOfColumns-1 --add each entry in a row
      put line row of card field col into it --take item (row,col)
      add it to line numberOfRows of card field col
      add it to line row of card field numberOfColumns
    end repeat
  end repeat

  -- Calculation of grand total (only add up totals across bottom)
  repeat with  col = 2 to numberOfColumns-1
    add line numberOfRows of card field col to line numberOfRows of card field numberOfColumns
  end repeat

end mouseUp




-- part 10 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=8 top=37 right=79 bottom=196
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 256
-- line height: 30
-- part name: 


-- part 12 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=195 top=37 right=79 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=271 right=322 bottom=55
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part contents for card part 1
----- text -----

Hotel
Car
Meal
TOTAL

-- part contents for card part 3
----- text -----
Mon
75.25
27.50
15.37
118.12

-- part contents for card part 4
----- text -----
Tue
75.25
27.50
42.93
145.68

-- part contents for card part 5
----- text -----
Wed
75.25
27.50
22.68
125.43

-- part contents for card part 6
----- text -----
Thu
75.25
27.50
77.89
180.64

-- part contents for card part 7
----- text -----
Fri
75.25
27.50
34.34
137.09

-- part contents for card part 8
----- text -----
TOTAL
376.25
137.50
193.21
706.96

46

-- part contents for card part 10
----- text -----
EXPENSE REPORT



0

-- part contents for card part 12
----- text -----
Week of Dec 13th, 1987